home *** CD-ROM | disk | FTP | other *** search
/ Softdisk for Windows 42 / Softdisk for Windows 42.iso / QUARRY / QUARRY.EXE / QUARRY.dxr / 00049_WAITFORROW.ls < prev    next >
Encoding:
Text File  |  1998-01-01  |  1.1 KB  |  55 lines
  1. on WAITFORROW
  2.   global GRIDH, NB, NBB, GRIDY, GRIDN, DT, PUSHED, PUSHON, TURN, ROW, DI, STARTED, FINALROW, FINALDIR, COMPLAY, NWGAME, GAMELEN, BLUESCORE, REDSCORE
  3.   set PUSHED to 0
  4.   if TURN >= 2 then
  5.     set TURN to 0
  6.   end if
  7.   set TURN to TURN + 1
  8.   if (STARTED = 1) and (NWGAME = 0) then
  9.     SHOWPUSHER()
  10.   end if
  11.   if (STARTED = 1) and (NWGAME = 0) then
  12.     SHIFTROW()
  13.   end if
  14.   if TURN = 2 then
  15.     if NWGAME = 0 then
  16.       MOVEBLUE()
  17.       MOVERED()
  18.       MOVEBLUE()
  19.       MOVERED()
  20.     end if
  21.     if BLUESCORE >= GAMELEN then
  22.       exit
  23.     end if
  24.     if REDSCORE >= GAMELEN then
  25.       exit
  26.     end if
  27.     if COMPLAY = 0 then
  28.       if STARTED <> 0 then
  29.         COMPUTER()
  30.         set ROW to FINALROW
  31.         set DI to FINALDIR
  32.         set TURN to 1
  33.         SHIFTROW()
  34.         set TURN to 1
  35.       end if
  36.     end if
  37.   end if
  38.   if TURN = 1 then
  39.     RESETALLMEN()
  40.     MOVERED()
  41.     MOVEBLUE()
  42.     MOVERED()
  43.     MOVEBLUE()
  44.   end if
  45.   if BLUESCORE >= GAMELEN then
  46.     exit
  47.   end if
  48.   if REDSCORE >= GAMELEN then
  49.     exit
  50.   end if
  51.   set STARTED to 1
  52.   set PUSHON to 0
  53.   set PUSHED to 0
  54. end
  55.